home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / xlib / xhostaddress.t < prev    next >
Text File  |  1990-06-01  |  730b  |  18 lines
  1. (herald xhostaddress (env tsys (xlib interface)))
  2. (DEFINE (MAKE-XHOSTADDRESS) (CONS 'XHOSTADDRESSP (MAKE-BYTEV 12)))
  3. (DEFINE (XHOSTADDRESS-FAMILY X) (MREF-INTEGER (CHK-XHOSTADDRESSP X) 0))
  4. (DEFINE (XHOSTADDRESS-FAMILY! X Y)
  5.         (SET-MREF-INTEGER! (CHK-XHOSTADDRESSP X) 0 Y))
  6. (DEFINE (XHOSTADDRESS-LENGTH X) (MREF-INTEGER (CHK-XHOSTADDRESSP X) 4))
  7. (DEFINE (XHOSTADDRESS-LENGTH! X Y)
  8.         (SET-MREF-INTEGER! (CHK-XHOSTADDRESSP X) 4 Y))
  9. (DEFINE (XHOSTADDRESS-ADDRESS X)
  10.         ((LAMBDA (X Y) (CONS 'CHARP (MREF-POINTER X Y)))
  11.          (CHK-XHOSTADDRESSP X)
  12.          8))
  13. (DEFINE (XHOSTADDRESS-ADDRESS! X Y)
  14.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-CHARP Z)))
  15.          (CHK-XHOSTADDRESSP X)
  16.          8
  17.          Y))
  18.